home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / BUSINESS / SALE24.ARJ / L2OPEN.PRG < prev    next >
Text File  |  1992-06-01  |  652b  |  24 lines
  1. * l2open.prg
  2. * opens a single database 
  3. * filename = database file
  4. * workarea = area in which to open the database
  5. * wantexcl = .t. if want exclusive use
  6. ** sample usage = IF NOT l2open("customer",select(1))
  7. **                  DO l2msg WITH "Sorry. Customer file "+;
  8. **                    "could not be opened.","Ok"
  9. **                  CLOSE DATA
  10. **                  RETURN
  11. **                ENDIF
  12. PARAMETERS filename,workarea,wantexcl
  13. IF wantexcl
  14.   kerror=0  && error trap will change it if USE fails
  15.   USE (filename) IN (workarea) EXCLUSIVE
  16. ELSE
  17.   kerror=0
  18.   USE (filename) IN (workarea)
  19. ENDIF
  20. RETURN kerror=0
  21. * EOP l2open
  22.  
  23.  
  24.